home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / demo / db2_10fr.lha / DB2.10-f / Exemples / Relations / CD-Songs.db < prev    next >
Text File  |  1980-07-27  |  919b  |  42 lines
  1. /* Relational look-up
  2.  * Script ARrexx pour DB montrant comment de simple liens peuvent être créer
  3.  * par David Ekholm 1995
  4.  * $VER: look-up.db 1.0 (13.9.95)
  5.  *
  6.  * Pour créer vos propres liens modifier juste les 2 lignes en dessous.
  7.  */
  8.  
  9. file = 'Songs'
  10. key = 'CD #'
  11.  
  12. /* 'file' indicate quel fichier il faut regarder. 'key' est le champ a
  13.  * prendre. Ces scripts ouvrent un nom de port 'file'.1
  14.  * Il suppose aussi que le champ key et le même dans les 2 bases.
  15.  */
  16.  
  17. port = file || '.1'
  18.  
  19. Options Results
  20.  
  21. GetField key
  22. keyval = result
  23.  
  24. if find(show('p'), port) == 0 then do
  25.  address command 'run //db ' file
  26.  address COMMAND WaitForPort port
  27.  ActivateWindow  /* Réactive l'ancienne fenêtre */
  28. end
  29.  
  30. address VALUE port
  31. BlockInput /* Fait le en silence */
  32. Mode 'find'
  33. Kill
  34. CurrentField key
  35. PutField keyval
  36. FindFirst
  37. if RC == 5 then do
  38.  DisplayBeep
  39.  Okay1 key keyval 'ne peut pas être trouvé dans la base ' file
  40. end
  41. FreeInput
  42.